home *** CD-ROM | disk | FTP | other *** search
/ infoROM 17,000 Product Descriptions for Business / infoROM Product Descriptions for Business - ESX Interactive.ISO / argdemos / cmenu / cmenu.dcl < prev    next >
Encoding:
Text File  |  1994-01-25  |  3.6 KB  |  167 lines
  1. //
  2. // CMENU.DCL - Copyright 1993 by Mountain Software
  3. //
  4. // THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED
  5. // WARRANTY.  ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR
  6. // PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.
  7. //
  8. //*===================================================================*
  9.  
  10. dcl_settings : default_dcl_settings { audit_level = 0; }
  11.  
  12. get_string : dialog {
  13.     label = "Edit";
  14.     : text {
  15.         key = "get_string_label";
  16.         label = "";
  17.         width = 40;
  18.     }
  19.     : edit_box {
  20.         key = "get_string_value";
  21.     }
  22.     ok_cancel;
  23. }
  24.  
  25. block_box : edit_box {
  26.     width = 10;
  27.     fixed_width = true;
  28.     alignment = right;
  29. }
  30.  
  31. block : dialog {
  32.     label = "Block Insert";
  33.     : edit_box {
  34.         key = "block_edit";
  35.         width = 20;
  36.     }
  37.     : block_box {
  38.         key = "block_x_scale";
  39.         label = "X Scale";
  40.     }
  41.     : block_box {
  42.         key = "block_y_scale";
  43.         label = "Y Scale";
  44.     }
  45.     : block_box {
  46.         key = "block_rotation";
  47.         label = "Rotation";
  48.     }
  49.     ok_cancel;
  50. }
  51.  
  52. cmenu : dialog {
  53.     label = "Custom#Menu";
  54.     initial_focus = "select";
  55.     : boxed_row {
  56.         label = "(c) Mountain Software";
  57.         :column {
  58.             :boxed_row {
  59.                 label = "Menu";
  60.                 : button {
  61.                     label = "Select <";
  62.                     key = "select";
  63.                     mnemonic = "S";
  64.                 }
  65.                 : button {
  66.                     label = "Undo Last";
  67.                     key = "undo";
  68.                     mnemonic = "U";
  69.                 }
  70.             }
  71.             : boxed_column {
  72.                 label = "Item Label";
  73.                 key = "item_label";
  74.                 : edit_box {
  75.                        label = "Label:";
  76.                     key = "label";
  77.                 }
  78.             }
  79.         }
  80.         : boxed_radio_column {
  81.             label = "Location";
  82.             value = "ins";
  83.             : radio_button {
  84.                 label = "Insert";
  85.                 key = "insert_mode";
  86.                 mnemonic = "I";
  87.             }
  88.             : radio_button {
  89.                 label = "Add";
  90.                 key = "add_mode";
  91.                 mnemonic = "A";
  92.             }
  93.             : radio_button {
  94.                 label = "Overwrite";
  95.                 key = "overwrite_mode";
  96.                 mnemonic = "O";
  97.             }
  98.             : radio_button {
  99.                 label = "Delete";
  100.                 key = "delete_mode";
  101.                 mnemonic = "D";
  102.             }
  103.         }
  104.         : boxed_column {
  105.             label = "Compose";
  106.             : button {
  107.                 label = "ADS";
  108.                 key = "ads";
  109.                 mnemonic = "A";
  110.             }
  111.             : button {
  112.                 label = "autolisP";
  113.                 key = "lisp";
  114.                 mnemonic = "P";
  115.             }
  116.             : button {
  117.                 label = "Block";
  118.                 key = "block_insert";
  119.                 mnemonic = "B";
  120.             }
  121.             : button {
  122.                 label = "Learn";
  123.                 key = "learn";
  124.                 mnemonic = "L";
  125.             }
  126.         }
  127.     }
  128.     : text {
  129.         key = "command_edit_text";
  130.         label = "Command Editor";
  131.     }
  132.     : edit_box { key = "command_edit"; }
  133.     : list_box {
  134.         key = "command_list";
  135.         label = "Command List";
  136.         width = 60;
  137.         height = 4;
  138.     }
  139.     ok_cancel_help_errtile;
  140. }
  141.  
  142. look_file : dialog {
  143.     label = "";
  144.     key = "filename";
  145.     : list_box {
  146.         key = "look_box";
  147.         tabs = "7 15 23";
  148.         width = 74;
  149.         height = 20;
  150.     }
  151.     ok_button;
  152. }
  153.  
  154. dmenu : dialog {
  155.     label = "Menu";
  156.     key = "title";
  157.     initial_focus = "menu";
  158.     : list_box {
  159.         key = "menu";
  160.         width = 25;
  161.         height = 8;
  162.     }
  163.     ok_cancel_help;
  164. }
  165.  
  166.  
  167.